VERSION 5.00
Begin VB.Form frmMapSearch 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Map Search"
   ClientHeight    =   6465
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3465
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6465
   ScaleWidth      =   3465
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox picMapSearch 
      AutoRedraw      =   -1  'True
      BackColor       =   &H0044342E&
      DrawMode        =   1  'Blackness
      Height          =   6495
      Left            =   0
      ScaleHeight     =   429
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   229
      TabIndex        =   0
      Top             =   0
      Width           =   3495
      Begin VB.CommandButton Command2 
         Caption         =   "Reset List"
         Height          =   255
         Left            =   1560
         TabIndex        =   4
         Top             =   600
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Search"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   600
         Width           =   1215
      End
      Begin VB.TextBox SearchText 
         BackColor       =   &H0044342E&
         ForeColor       =   &H80000004&
         Height          =   405
         Left            =   120
         TabIndex        =   2
         Top             =   120
         Width           =   3135
      End
      Begin VB.ListBox SearchBox 
         BackColor       =   &H0044342E&
         ForeColor       =   &H80000004&
         Height          =   5130
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   3135
      End
      Begin VB.Label lblMenu 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Close"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   5
         Top             =   6120
         Width           =   2895
      End
   End
End
Attribute VB_Name = "frmMapSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
frmMapSearch.SearchBox.Clear
Dim i As Long
For i = 1 To MaxMaps
    If InStr(LCase(MapList(i).MapName), LCase(frmMapSearch.SearchText.Text)) Then
        If Not MapList(i).MapName = "" Then
            frmMapSearch.SearchBox.AddItem (Str(i) + " - " + MapList(i).MapName)
        End If
    End If
Next
End Sub


Private Sub Command2_Click()
frmMapSearch.SearchBox.Clear
Dim i As Long
For i = 1 To MaxMaps

    frmMapSearch.SearchBox.AddItem (Str(i) + " - " + MapList(i).MapName)
Next
End Sub

Private Sub lblMenu_Click(index As Integer)
Call Unload(Me)
End Sub

Private Sub SearchBox_DblClick()
SendSocket Chr$(18) + Chr$(1) + DoubleChar(Int(Val(Mid(frmMapSearch.SearchBox.List(frmMapSearch.SearchBox.ListIndex), 2, InStr(1, frmMapSearch.SearchBox.List(frmMapSearch.SearchBox.ListIndex), "-") - 3)))) + Chr$(CByte(Val(5))) + Chr$(CByte(Val(5)))
End Sub
